home *** CD-ROM | disk | FTP | other *** search
/ Over 1,000 Games / 1,000 Games - Disk 1.iso / arcade / rexdemo / box.rpp < prev    next >
Text File  |  1996-12-08  |  1KB  |  109 lines
  1. { Box by Keebler }
  2.  
  3. var x1: number;
  4. var y1: number;
  5. var x2: number;
  6. var y2: number;
  7. var oldx1:number;
  8. var oldy1:number;
  9. var oldx2:number;
  10. var oldy2:number;
  11.  
  12. var KeyHit: number;
  13.  
  14. KeyHit:=0;
  15. x1:=50;
  16. x2:=100;
  17. y1:=90;
  18. y2:=100;
  19.  
  20. oldx1:=x1;
  21. oldy1:=y1;
  22. oldx2:=x2;
  23. oldy2:=y2;
  24.  
  25. randomize;
  26.  
  27. goto $Start
  28.  
  29. $EraseBox
  30. setcolor(0);
  31. line(oldx1,oldy1,oldx2,oldy1);
  32. line(oldx2,oldy1,oldx2,oldy2);
  33. line(oldx2,oldy2,oldx1,oldy2);
  34. line(oldx1,oldy2,oldx1,oldy1);
  35. setcolor(45);
  36. goto $Erased
  37.  
  38. $DrawBox
  39. setcolor(1);
  40. line(x1,y1,x2,y1);
  41. line(x2,y1,x2,y2);
  42. line(x2,y2,x1,y2);
  43. line(x1,y2,x1,y1);
  44. goto $Drawn
  45.  
  46.  
  47. $Start
  48. println("Use Arrow Keys to Move");
  49. println("      ESC to Exit     ");
  50.  
  51. delay(3000);
  52.  
  53. cls(0);
  54. line(x1,y1,x2,y1);
  55. line(x2,y1,x2,y2);
  56. line(x2,y2,x1,y2);
  57. line(x1,y2,x1,y1);
  58. $MyLoop
  59.  
  60. delay(10);
  61.  
  62. if ((kbcode(77))and(x2< 317))
  63.   x1 := x1 + 2 ;
  64.   x2 := x2 + 2 ;
  65. endif;
  66.  
  67. if ((kbcode(75))and(x1 > 2))     
  68.   x1:=x1 - 2;
  69.   x2:=x2 - 2;
  70. endif;
  71.  
  72. if ((kbcode(72))and(y1>2))   
  73.   y1:=y1-2;
  74.   y2:=y2-2;
  75. endif;
  76.  
  77. if ((kbcode(80))and(y2<197)) 
  78.   y1:=y1+2;
  79.   y2:=y2+2;
  80. endif;
  81.  
  82.  
  83. if (( x1 <> oldx1 )or( y1 <> oldy1 ))
  84.    goto $EraseBox
  85. $Erased
  86.    goto $DrawBox
  87. $Drawn
  88.    oldx1:=x1;
  89.    oldy1:=y1;
  90.    oldx2:=x2;
  91.    oldy2:=y2;
  92.  
  93. endif;
  94.  
  95.  
  96.  
  97. if (kbcode(1))
  98.   goto $Exit  
  99. endif;
  100.  
  101.  
  102. goto $MyLoop
  103.  
  104. $Exit
  105.  
  106.  
  107.  
  108.  
  109.